From: Sam Steingold <sds@gnu.org>
Date: Wed, 16 May 2001 21:13:21 +0000 (+0000)
Subject: (toplevel): indent the :method sub-form of `defgeneric' correctly.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40274
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0b1a0611dd35b15ce50596df60e4b6e20bfcd4e7;p=emacs.git

(toplevel): indent the :method sub-form of `defgeneric' correctly.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97c3f84f4b3..bf55c231d71 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-16  Sam Steingold  <sds@gnu.org>
+
+	* emacs-lisp/cl-indent.el (toplevel): indent the :method
+	sub-form of `defgeneric' correctly.
+
 2001-05-16  Gerd Moellmann  <gerd@gnu.org>
 
 	* tooltip.el (tooltip) <defgroup>: Put it in `gud' group instead
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el
index e0357cd5997..c03beb2a40c 100644
--- a/lisp/emacs-lisp/cl-indent.el
+++ b/lisp/emacs-lisp/cl-indent.el
@@ -422,6 +422,7 @@ by `lisp-body-indent'."
            (handler-bind . let) (restart-bind . let)
            (locally 1)
            ;(loop ...)
+           (:method (&lambda &body)) ; in `defgeneric'
            (multiple-value-bind ((&whole 6 &rest 1) 4 &body))
            (multiple-value-call (4 &body))
            (multiple-value-prog1 1)